home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
B-Book Series
/
(k)b4.d64
/
solution8.12
< prev
next >
Wrap
Text File
|
2007-02-28
|
1KB
|
38 lines
0010 DIM TALLY(26), LINE$ OF 80, TEXT$ OF 320, CHAR$ OF 1
0020 FOR LN:=1 TO 4 DO
0030 READ LINE$
0040 TEXT$:=TEXT$+LINE$
0050 ENDFOR LN
0060 FOR CH:=1 TO LEN(TEXT$) DO
0070 CHAR$:=TEXT$(CH)
0080 IF CHAR$>="A" AND CHAR$<="Z" THEN
0090 CODE:=ORD(CHAR$)-ORD("A")+1
0100 TALLY(CODE):=TALLY(CODE)+1
0110 ENDIF
0120 ENDFOR CH
0130 PRINT CHR$(147)
0140 FOR AC:=1 TO 26 DO
0150 FOR DN:=1 TO TALLY(AC) DO
0160 CURSOR(AC,DN)
0170 PRINT "*"
0180 ENDFOR DN
0190 ENDFOR AC
0200 DATA "HERE WITH A LOAF OF BREAD BENEATH THE BOUGH"
0210 DATA "A BOOK OF VERSE, A GLASS OF WINE AND THOU"
0220 DATA "BESIDE ME, SINGING IN THE WILDERNESS,"
0230 DATA "AND WILDERNESS IS PARADISE ENOW."
0240 //
0250 //CURSOR IS FORMAT OF BOOK
0260 //IT CALLS REAL'CURSOR WHICH FOLLOWS CBM COMAL METHOD
0270 //
0280 PROC CURSOR(ACROSS,DOWN) CLOSED
0290 ROW':=DOWN; COL':=ACROSS
0300 REAL'CURSOR(ROW',COL')
0310 ENDPROC CURSOR
0320 PROC REAL'CURSOR(ROW',COL') CLOSED
0330 PRINT CHR$(19), //HOME
0340 FOR ROWS:=1 TO ROW' DO PRINT CHR$(17), //DOWN
0350 FOR COLS:=1 TO COL' DO PRINT CHR$(29), //RIGHT
0360 ENDPROC REAL'CURSOR
0370 //